home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / prolog / ai.prl / dprolog.lha / switch.scr < prev   
Text File  |  1991-03-05  |  1KB  |  62 lines
  1. set take-echo  off
  2. set input echo off
  3. set local off
  4. if defined \%1 goto start
  5. echo No resource defined on call to SWITCH\13\10
  6. stop
  7. :Start
  8. echo \13\10 Waking up the switch\13\10
  9. set count 5
  10. :Loop1
  11. pause
  12. output \13
  13. pause
  14. input 5 resource:\7
  15. if success goto awake
  16. echo  Trying again....\13\10
  17. if count goto :Loop1
  18. echo \13\10 Failed to connect to switch \13\10
  19. goto Die
  20. :Awake
  21. echo \13\10 Trying to connect to resource \%1 \13\10
  22. output \%1 \13
  23. pause
  24. set alarm 3600
  25. :Loop2
  26. reinput connected
  27. if success pop
  28. reinput not available
  29. if success goto Label3
  30. reinput waiting
  31. if success goto Label4
  32. reinput trying
  33. if success goto Label4
  34. reinput ??
  35. if success goto Label5
  36. reinput Password:
  37. if success goto Label6
  38. if not alarm goto Loop2
  39. echo \13\10 Kermit timed out after 10 minutes of waiting for switch\13\10
  40. goto Die
  41. :Label3
  42. echo \13\10 Switch announces "Not Available"\13\10
  43. goto Die
  44. :Label4
  45. echo \13\10 Switch announces "Trying"\13\10
  46. clear
  47. goto Loop2
  48. :Label5
  49. echo \13\10 Switch announces "Resource has changed"\13\10
  50. goto Die
  51. :Label6
  52. if defined \%2 goto Enterpw
  53. echo \13\10 Switch requested Password and none defined\13\10
  54. goto Die
  55. :Enterpw
  56. output \%2 \13
  57. goto Loop2
  58. :Die
  59. drop
  60. hangup ; error exit - hangup the phone and die...
  61. stop
  62.